home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / mm_1_2.lha / MM / Rexx / MM_Edit.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-30  |  592b  |  40 lines
  1. /*
  2. ** Example script for MM_ReadMsg and MM_EditMsg commands
  3. */
  4.  
  5. address 'MAILMANAGER'
  6.  
  7. drop MESS.
  8.  
  9. MM_ReadMsg 'MATRIX' 854 MSG
  10.  
  11. if RC=0 then do
  12.     say
  13.     say
  14.     say 'From:' MSG.FROM MSG.FROMADDR
  15.     say 'To:  ' MSG.TO MSG.TOADDR
  16.     say 'Subj:' MSG.SUBJ
  17.     say 'Date:' MSG.DATE
  18.     say 'Flags:' MSG.FLAGS
  19.     say
  20.     end
  21.  
  22. /* MESS.FROMADDR = '2:335/602.2' */
  23. MESS.FLAGS = 'KILL'
  24.  
  25. MM_EditMsg 'MATRIX' 854 MESS
  26. say RC
  27.  
  28. MM_ReadMsg 'MATRIX' 854 MSG
  29.  
  30. if RC=0 then do
  31.     say
  32.     say
  33.     say 'From:' MSG.FROM MSG.FROMADDR
  34.     say 'To:  ' MSG.TO MSG.TOADDR
  35.     say 'Subj:' MSG.SUBJ
  36.     say 'Date:' MSG.DATE
  37.     say 'Flags:' MSG.FLAGS
  38.     say
  39.     end
  40.